home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / libs / intuisup.lha / Intuisup / Library / M2AmigaModula / intuisupL.def < prev    next >
Text File  |  1992-08-14  |  8KB  |  168 lines
  1. (* ------------------------------------------------------------------------
  2.   :Program.       intuisup
  3.   :Contents.      Interface to Torsten Jürgeleits intuisup.library
  4.   :Author.        Johann Semsrott
  5.   :Address.       Märkerweg 50 d
  6.   :Address.       D-2000 Hamburg 61 (Germany)
  7.   :History.       v4.5 14-aug-92 (translated from C)
  8.   :Copyright.     1991 by Torsten Jürgeleit
  9.   :Language.      Modula-2
  10.   :Translator.    M2Amiga V4.0d
  11.   :Remark.        Thanks to Torsten for his great library
  12.   :Bugs.          ?
  13. ------------------------------------------------------------------------ *)
  14.  
  15. DEFINITION MODULE intuisupL {"intuisup.library",4};
  16.  
  17. FROM SYSTEM         IMPORT  ADDRESS;
  18. FROM IntuitionD     IMPORT  WindowPtr,NewWindowPtr,ScreenPtr,
  19.                             IDCMPFlagSet,GadgetPtr,
  20.                             MenuItemPtr,IntuiMessagePtr;
  21. FROM GraphicsD      IMPORT  TextFontPtr,TextAttrPtr;
  22. FROM ExecD          IMPORT  MsgPortPtr;
  23. FROM DiskFontD      IMPORT  AvailFontHeaderPtr;
  24. IMPORT I: intuisupD;
  25. (************** F U N C T I O N   D E C L A R A T I O N S ***************)
  26.  
  27.                     (********* R E N D E R **********)
  28.                     
  29. PROCEDURE IGetRenderInfo(screen{8}:ScreenPtr;
  30.                          flags{0}:I.RenderInfoFlagSet):ADDRESS;     CODE - 30;
  31. PROCEDURE IFreeRenderInfo(ri{8}:I.RenderInfoPtr);                   CODE - 36;
  32. PROCEDURE IOpenWindow(ri{8}:I.RenderInfoPtr;
  33.                       nw{9}:NewWindowPtr;
  34.                       flags{0}:I.RWindowFlagSet):WindowPtr;         CODE - 42;
  35. PROCEDURE IClearWindow(ri{8}:I.RenderInfoPtr;win{9}:WindowPtr;
  36.                              leftEdge{0},topEdge{1},
  37.                              width{2},height{3}:INTEGER;
  38.                              flags{4}:I.ClrWindowFlagSet);          CODE - 48;
  39. PROCEDURE ICloseWindow(win{8}:WindowPtr;moreWindows{0}:BOOLEAN);    CODE - 54;
  40. PROCEDURE IAvailFonts(ri{8}:I.RenderInfoPtr):AvailFontHeaderPtr;    CODE - 60;
  41. PROCEDURE IAskFont(ri{8}:I.RenderInfoPtr;
  42.                    ta{9}:TextAttrPtr):TextAttrPtr;                  CODE - 66;
  43. PROCEDURE IOpenFont(ri{8}:I.RenderInfoPtr;
  44.                     ta{9}:TextAttrPtr):TextFontPtr;                 CODE - 72;
  45.                     
  46.                     (********* T E X T S **********)
  47.  
  48. PROCEDURE IDisplayTexts(ri{8}:I.RenderInfoPtr;
  49.                         win{9}:WindowPtr;
  50.                         td{10}:I.TextDataPtr;
  51.                         hOffset{0},vOffset{1}:INTEGER;
  52.                         lta{11}:ADDRESS);                           CODE - 78;
  53. PROCEDURE IPrintText(ri{8}:I.RenderInfoPtr;
  54.                      win{9}:WindowPtr;
  55.                      text{10}:ADDRESS;
  56.                      leftEdge{0},topEdge{1},type{2}:INTEGER;
  57.                      tdflags{3}:I.TextDataFlagSet;
  58.                      textAttr{11}:TextAttrPtr):INTEGER;             CODE - 84;
  59. PROCEDURE IConvertUnsignedDec(num{0}:LONGCARD;
  60.                               buffer{8}:ADDRESS;
  61.                               cflags{1}:I.ConvertFlagSet):INTEGER;  CODE - 90;
  62. PROCEDURE IConvertSignedDec(num{0}:LONGINT;
  63.                             buffer{8}:ADDRESS;
  64.                             cflags{1}:I.ConvertFlagSet):INTEGER;    CODE - 96;
  65. PROCEDURE IConvertHex(num{0}:LONGCARD;
  66.                       buffer{8}:ADDRESS;
  67.                       cflags{1}:I.ConvertFlagSet):INTEGER;          CODE - 102;
  68. PROCEDURE IConvertBin(num{0}:LONGCARD;
  69.                       buffer{8}:ADDRESS;
  70.                       cflags{1}:I.ConvertFlagSet):INTEGER;          CODE - 108;
  71.  
  72.                     (********* B O R D E R S **********)
  73.  
  74. PROCEDURE IDisplayBorders(ri{8}:I.RenderInfoPtr;
  75.                           win{9}:WindowPtr;
  76.                           bd{10}:I.BorderDataPtr;
  77.                           hOffset{0},vOffset{1}:INTEGER);           CODE - 114;
  78. PROCEDURE IDrawBorder(ri{8}:I.RenderInfoPtr;
  79.                       win{9}:WindowPtr;
  80.                       leftEdge{0},topEdge{1},
  81.                       width{2},height{3},
  82.                       type{4}:INTEGER);                             CODE - 120;
  83.  
  84.                     (********* G A D G E T S **********)
  85.  
  86. PROCEDURE ICreateGadgets(ri{8}:I.RenderInfoPtr;
  87.                          gd{9}:I.GadgetDataPtr;
  88.                          hOffset{0},vOffset{1}:INTEGER;
  89.                          lta{10}:ADDRESS):I.GadgetListPtr;          CODE - 126;
  90. PROCEDURE IFreeGadgets(gl{8}:I.GadgetListPtr);                      CODE - 132;
  91. PROCEDURE IDisplayGadgets(win{8}:WindowPtr;gl{9}:I.GadgetListPtr);  CODE - 138;
  92. PROCEDURE IRefreshGadgets(gl{8}:I.GadgetListPtr);                   CODE - 144;
  93. PROCEDURE IModifyGadget(gl{8}:I.GadgetListPtr;  
  94.                         dataEntry{0},
  95.                         leftEdge{1},topEdge{2},
  96.                         width{3},height{4}:INTEGER);                CODE - 150;
  97. PROCEDURE ISetGadgetAttributes(gl{8}:I.GadgetListPtr;
  98.                                dataEntry{0}:INTEGER;
  99.                                flagMask{1},flagBits{2}:I.GadgetDataFlagSet;
  100.                                data1{3},data2{4}:LONGINT;
  101.                                data3{9}:ADDRESS):LONGINT;           CODE - 156;
  102. PROCEDURE IActivateInputGadget(gl{8}:I.GadgetListPtr;
  103.                                dataEntry{0}:INTEGER);               CODE - 162;
  104. PROCEDURE IGadgetAddress(gl{8}:I.GadgetListPtr;
  105.                          dataEntry{0}:INTEGER):GadgetPtr;           CODE - 168;
  106. PROCEDURE IRemoveGadgets(gl{8}:I.GadgetListPtr);                    CODE - 174;
  107. PROCEDURE IGetMsg(uport{8}:MsgPortPtr):IntuiMessagePtr;             CODE - 180;
  108. PROCEDURE IReplyMsg(imsg{8}:IntuiMessagePtr);                       CODE - 186;
  109.  
  110.                     (********* R E Q U E S T E R **********)
  111.  
  112. PROCEDURE IAutoRequest (win{8}:WindowPtr;
  113.                         title{9}:ADDRESS;
  114.                         text{10}:ADDRESS;
  115.                         pos{11}:ADDRESS;
  116.                         neg{0}:ADDRESS;
  117.                         posidcmp{1}:IDCMPFlagSet;
  118.                         negidcmp{2}:IDCMPFlagSet;
  119.                         flags{3}:I.AutoRequesterFlagSet;
  120.                         lta{4}:ADDRESS):BOOLEAN;                    CODE - 192;
  121. PROCEDURE IDisplayRequester(win{8}:WindowPtr;
  122.                             rd{9}:I.RequesterDataPtr;
  123.                             lta{10}:ADDRESS):I.RequesterListPtr;    CODE - 198;
  124. PROCEDURE IRemoveRequester(rl{8}:I.RequesterListPtr);               CODE - 204;
  125.                     
  126.                     (********* M E N U S **********)
  127.  
  128. PROCEDURE ICreateMenu(ri{8}:I.RenderInfoPtr;
  129.                       win{9}:WindowPtr;
  130.                       md{10}:I.MenuDataPtr;
  131.                       ta{11}:TextAttrPtr;
  132.                       lta{0}:ADDRESS):I.MenuListPtr;                CODE - 210;
  133. PROCEDURE IAttachMenu(win{8}:WindowPtr;ml{9}:I.MenuListPtr);        CODE - 216;
  134. PROCEDURE IMenuItemAddress(ml{8}:I.MenuListPtr;
  135.                            menuNum{0}:CARDINAL):MenuItemPtr;        CODE - 222;
  136. PROCEDURE IRemoveMenu(ml{8}:I.MenuListPtr):WindowPtr;               CODE - 228;
  137. PROCEDURE IFreeMenu(ml{8}:I.MenuListPtr);                           CODE - 234;
  138.  
  139.                     (********* T E X T   F I L E S **********)
  140.  
  141. PROCEDURE IOpenTextFile(name{8}:ADDRESS;
  142.                         readbuffersize{0}:CARDINAL;
  143.                         linebuffersize{1}:CARDINAL;
  144.                         flags{2}:I.TextFileFlagSet):I.FileDataPtr;      CODE - 240;
  145. PROCEDURE IReadTextLine(fd{8}:I.FileDataPtr):INTEGER;               CODE - 246;
  146. PROCEDURE ICloseTextFile(fd{8}:I.FileDataPtr);                      CODE - 252;
  147.  
  148.                     (********* L A N G U A G E **********)
  149.  
  150. PROCEDURE IBuildLanguageTextArray(name{8}:ADDRESS;
  151.                                   entries{0}:CARDINAL):ADDRESS;     CODE - 258;
  152. PROCEDURE IGetLanguageText(text{8}:ADDRESS;
  153.                            textarray{9}:ADDRESS):ADDRESS;           CODE - 264;
  154. PROCEDURE IFreeLanguageTextArray(textarray{8}:ADDRESS);             CODE - 270;
  155.  
  156.                     (********* M O U S E   P O I N T E R **********)
  157.  
  158. PROCEDURE IChangeMousePointer(win{8}:WindowPtr;
  159.                               pd{9}:I.PointerDataPtr);              CODE - 276;
  160. PROCEDURE IRestoreMousePointer(win{8}:WindowPtr);                   CODE - 282;
  161. PROCEDURE IMoveMousePointer(win{8}:WindowPtr;
  162.                             x{0}:INTEGER;y{1}:INTEGER;
  163.                             button{2}:BOOLEAN);                     CODE - 288;
  164.  
  165. PROCEDURE IConvertRawKeyToASCII(imsg{8}:IntuiMessagePtr);           CODE - 294;
  166.  
  167. END intuisupL.
  168.